home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / music lesson.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  11KB  |  444 lines
  1. 2 POKE53280,2:POKE53281,2:PRINT"[147]
  2. 5 [141]880:[141]990
  3. 10 [153]"SYSL I N E S
  4. 12 PRINT"A N D
  5. 14 [153]"S P A C E S
  6. 19 PK=256*PEEK(648)+156:POKE54277,8
  7. 30 PRINT "[150]BY GLENN MILLAGE"
  8. 32 PRINT"[158]    ADAPTED FOR THE COMMODORE 64
  9. 34 [153][163]16)"RETURNBY
  10. 36 PRINT"          [150]STEVEN DARNOLD
  11. 38 [153]"          P.O. BOX 201
  12. 40 PRINT"          ALEXANDRA, NEW ZEALAND
  13. 50 [153] "SYSWHAT IS YOUR NAME? ";
  14. 60 [141] 400
  15. 70 [139][195](B$)[177]16 [167] B$[178]""
  16. 80 [139] B$[178]"" [167] 50
  17. 90 NA$[178]B$
  18. 100 [153] [199](135)
  19. 110 [129] X[178]1 [164] 200
  20. 120 [130] X
  21. 130 [153] "LOADSYSHELLO ";NA$;".  I AM GOING TO
  22. 140 PRINT "TEACH YOU ABOUT THE LINES AND SPACES.
  23. 150 [153] "WHEN I ASK YOU A QUESTION, I WANT YOU
  24. 160 PRINT "TYPE IN WHAT YOU THINK IS THE CORRECT"
  25. 170 PRINT "ANSWER AND PRESS THE[129][167][145][164][164][164][164][164][164][157][165][157][157][157][157][157][157][163][163][163][163][163][163][145][157][157][157][157][157][157]RETURN[146][165][158]KEY."
  26. 190 PRINT "PRESS[129][167]RETURN[146][165][158]TO CONTINUE."
  27. 200 PRINT "[129]      [163][163][163][163][163][163][145][145][157][157][157][157][157][157][164][164][164][164][164][164]"
  28. 210 GET A$
  29. 220 IF A$="" THEN 210
  30. 230 IF ASC(A$)<>13 THEN 210
  31. 240 PRINT CHR$(135);CHR$(135)
  32. 250 PRINT "[147][158]DON'T WORRY "NA$" IF YOU MAKE
  33. 260 [153] "A MISTAKE. JUST PRESS THEFORTHENINSTWAITONCMDCMDCMDCMDTOTOTOTOFNSYSKEY
  34. 265 PRINT TAB(26)"[129][167] DEL[146][165]
  35. 270 [153] "SYSTO ERASE YOUR ANSWER."
  36. 290 [153] "PRESS THEFORTHENINSTWAITONCMDCMDCMDCMDTOTOTOTOFNSYSKEY TO CONTINUE.
  37. 291 PRINT,"[157][129][167] DEL[146][165]
  38. 300 [161] A$
  39. 310 [139] A$[178]"" [167] 300
  40. 320 [139] [198](A$)[179][177]20 [167] 300
  41. 330 [153][199](135);[199](135)
  42. 340 [153] "LOAD"
  43. 350 [141] 880
  44. 360 [141] 990
  45. 370 [141] 1110
  46. 380 [141] 1220
  47. 390 [137]2060
  48. 400 B$[178]""
  49. 410 [153] " WAITCMD";
  50. 420 [129] X[178]1 [164] 60
  51. 430 [161] A$
  52. 440 [139] A$[178]"" [167] 600
  53. 450 [139] [198](A$)[178]13 [167] [153] " ":[142]
  54. 460 [139] [198](A$)[178]141 [167] [153] " ":[142]
  55. 470 [139] [198](A$)[178]19 [167] 600
  56. 480 [139] [198](A$)[178]147 [167] 600
  57. 490 [139] [198](A$)[178]17 [167] 600
  58. 500 [139] [198](A$)[178]148 [167] 600
  59. 510 [139] [198](A$)[178]145 [167] 600
  60. 520 [139] [198](A$)[178]18 [167] 600
  61. 530 [139] [198](A$)[178]157 [167] 600
  62. 540 [139] [198](A$)[178]34 [167] 600
  63. 550 [139] [198](A$)[178]29 [167] 600
  64. 560 [139] [198](A$)[178]20 [167] 820
  65. 570 [153] A$;" WAITCMD";
  66. 580 B$[178]B$[170]A$
  67. 590 [139] [195](B$)[178]255 [167] 820
  68. 600 [130] X
  69. 610 [153] " CMD";
  70. 620 [129] X[178]1 [164] 60
  71. 630 [161] A$
  72. 640 [139] A$[178]"" [167] 800
  73. 650 [139] [198](A$)[178]13 [167] [153]:[142]
  74. 660 [139] [198](A$)[178]141 [167] [153]:[142]
  75. 670 [139] [198](A$)[178]19 [167] 800
  76. 680 [139] [198](A$)[178]147 [167] 800
  77. 690 [139] [198](A$)[178]157 [167] 800
  78. 700 [139] [198](A$)[178]17 [167] 800
  79. 710 [139] [198](A$)[178]148 [167] 800
  80. 720 [139] [198](A$)[178]145 [167] 800
  81. 730 [139] [198](A$)[178]18 [167] 800
  82. 740 [139] [198](A$)[178]29 [167] 800
  83. 750 [139] [198](A$)[178]34 [167] 800
  84. 760 [139] [198](A$)[178]20 [167] 820
  85. 770 [153] A$;
  86. 780 B$[178]B$[170]A$
  87. 790 [139] [195](B$)[178]255 [167] 820
  88. 800 [130] X
  89. 810 [203] [164] 410
  90. 820 [153] "CMD  CMD";
  91. 830 [129] X[178]1 [164] [195](B$)
  92. 840 [153] "CMDCMD ";
  93. 850 [130] X
  94. 860 B$[178]""
  95. 870 [142]
  96. 880 [153] "DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  97. 890 [153] "(null)                                (null)"
  98. 900 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  99. 910 [153] "(null)                                (null)"
  100. 920 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  101. 930 [153] "(null)                                (null)"
  102. 940 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  103. 950 [153] "(null)                                (null)"
  104. 960 [153] "/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  105. 970 [153] "                                 "
  106. 980 [142]
  107. 990 [153] "  (null)RIGHT$   "
  108. 1000 [153] "ORTAN(null)(null)TANTAN"
  109. 1010 [153] "(null)(null)(null)(null)  "
  110. 1020 [153] "-(null)(null)TANTANTAN"
  111. 1030 [153] "(null)(null)(null)   "
  112. 1040 [153] "-(null)(null)TANTANTAN"
  113. 1050 [153] "(null)(null)ABSWAIT^  "
  114. 1060 [153] "-(null)(null)(null)TANTAN"
  115. 1070 [153] "(null)MID$(null)(null)  "
  116. 1080 [153] "/TAN(null)TANTANTAN"
  117. 1090 [153] " MID$(null)   "
  118. 1100 [142]
  119. 1110 [153] "CMDCMDCMDCMDCMD GETGETCMDCMDCMDCOSRNDRNDWAITRNDCMDCMDCMDCMDLOGLOG*WAIT CMDCMDCMDCMDSIN *WAITRNDCMDCMDCMDCMDCMDLOGRND WAITGETSINWAITCMDCMDCMDCMD";
  120. 1120 [153] "LOGGET*WAITCMDCMDCMD*GETLOGWAITCMDCMDCMDCMDSYSTAB(TAB(TAB(TAB(TAB("
  121. 1130 [142]
  122. 1140 [153] "CMDCMDCMDCMDCMD RNDRNDCMDCMDCMDGETSINCOSWAIT CMDCMDCMDCMDNEW *WAITCOS SYS"
  123. 1150 [142]
  124. 1160 [153] "CMDCMDCMDCMDCMD RNDRNDCMDCMDCMDCOS  WAITRND CMDCMDCMDCMDCMDLOGSINSINWAIT SYS"
  125. 1170 [142]
  126. 1180 [153] "CMDCMDCMDCMDCMD GETGETWAITCMDCMDCMDGET**WAIT CMDCMDCMDCMDLOG SINWAIT SYS"
  127. 1190 [142]
  128. 1200 [153] "CMDCMDCMDCMDCMDGETGETWAIT CMDCMDCMDLOG* WAIT CMDCMDCMDCMDLOGCOS*WAIT SYS"
  129. 1210 [142]
  130. 1220 T[178]0
  131. 1230 [135] A$
  132. 1240 [139] A$[178]"EIEIO" [167] [142]
  133. 1250 [129] X[178]1 [164] [195](A$)
  134. 1260 B$[178][202](A$,X,1)
  135. 1270 [139] B$[178]"ATN" [167] T[178]1:B$[178]""
  136. 1280 [139] B$[178]"_" [167] [153]:B$[178]""
  137. 1290 [139] B$[178]"(null)" [167] T[178]0:B$[178]""
  138. 1300 [139] B$[178]"(null)" [167] 1470
  139. 1310 [139] B$[178]"(null)" [167] 2010
  140. 1320 [139] B$[178]"(null)" [167] 1600
  141. 1330 [139] B$[179][177]"(null)" [167] 1370
  142. 1340 [129] Y[178]1 [164] 250
  143. 1350 [130] Y
  144. 1360 B$[178]""
  145. 1370 [153] B$;
  146. 1380 [139] T[178]0 [167] 1450
  147. 1390 [151] PK,160
  148. 1400 [151] 54296,15
  149. 1410 [151] 54276,32
  150. 1420 [151]54276,33:[151]54273,[181]([187](1)[172]50)[170]50
  151. 1430 [151] 54296,0
  152. 1440 [151] PK,252
  153. 1450 [130] X
  154. 1460 [203] [164] 1230
  155. 1470 [129] Z[178]1 [164] [195](NA$)
  156. 1480 [153] [202](NA$,Z,1);
  157. 1490 [139] T[178]0 [167] 1450
  158. 1500 [151] PK,160
  159. 1510 [151] 54296,15
  160. 1520 [151] 54276,32
  161. 1530 [151]54276,33:[151]54273,[181]([187](1)[172]50)[170]50
  162. 1540 [151] 54296,0
  163. 1550 [151] PK,252
  164. 1560 [129] Q[178]1[164]20
  165. 1570 [130] Q
  166. 1580 [130] Z
  167. 1590 [203] [164] 1450
  168. 1600 [153]
  169. 1610 [141]9000
  170. 1620 [161] A$
  171. 1630 [139] A$[178]"" [167] 1670
  172. 1640 [139] [198](A$)[179][177]13 [167] 1670
  173. 1650 [141] 1110
  174. 1660 [203] [164] 1450
  175. 1670 A[178][181]([187](1)[172]25)
  176. 1680 [139] A[179][177]21 [167] 1620
  177. 1690 A[178][181]([187](1)[172]5)[170]1
  178. 1700 [145] A [141] 1200,1140,1160,1180,1110
  179. 1710 [203] [164] 1620
  180. 1720 [131] ""
  181. 1730 [131] "(null)(null)ATNHELLO (null).(null)(null)(null)__ATNMY NAME IS ANDY THE ANDROIDSYS.  I AM(null)__ATNP"
  182. 1740 [131] "ROGRAMMED TO TEACH YOU THE LINES(null)__ATNAND SPACES IN MUSIC.(null)(null)"
  183. 1750 [131] "(null)ATNIN THE TREBLE CLEF,"
  184. 1760 [131] "__ATNTHESE ARE THE SPACES:"
  185. 1770 [131] "(null)(null)(null)(null)ATNF(null)"
  186. 1780 [131] "(null)(null)ATNA(null)(null)(null)ATNC(null)(null)(null)ATNE(null)(null)(null)"
  187. 1790 [131] "ATNAS YOU WILL(null)__ATNNOTICE,(null) THIS SPELLS "
  188. 1800 [131] "FACESYS FROM THE__BOTTOM UP.(null)(null)(null)(null)"
  189. 1810 [131] "(null)ATNTHESE ARE THE LINES:  (null)"
  190. 1820 [131] "ATNE(null)(null)(null)ONONCMDATNG(null)(null)(null)ONONCMDATNB(null)(null)(null)ONONCMDATND(null)(null)(null)ONONCMDATNF(null)(null)(null)"
  191. 1830 [131] "ATNA GOOD__WAY TO REM"
  192. 1840 [131] "EMBER THE LINES IS:(null)(null)(null)__ATNEDEFVERY(null) SYSGDEFOOD(null) SYSBDEFOY(null) SYSDDEFESERVES(null) SYSFDEF"
  193. 1850 [131] "UDGESYS!!(null)(null)(null)(null)","EIEIO"
  194. 1860 [131] "(null)ATNNOW FOR THE BASSWAIT CLEF!!!(null)(null)(null)(null)","(null)"
  195. 1870 [131] "ATNWASN'T THAT NEAT, (null)?(null)__ATNTHE SPACES IN THE BASS CLEF AR"
  196. 1880 [131] "E(null)__ATNA BIT MORE DIFFICULT TO REMEMBER.(null)__ATNTHEY ARE:  (null)"
  197. 1890 [131] "ATN(null)AONONCMD(null)CONONCMD(null)EONONCMD(null)G(null)ATN(null)(null)","(null)"
  198. 1900 [131] "(null)ATNA NEAT WAY TO REMEMBER THIS IS:__AWAITLL CWAITOWS EWAITAT"
  199. 1910 [131] " GWAITRASS.(null)(null)"
  200. 1920 [131] "(null)"
  201. 1930 [131] "(null)ATNTHE LINES IN THE BASS CLEF ARE EASIER,(null)__ATNTHEY ARE:"
  202. 1940 [131] "(null)ATNG(null)(null)ONONCMDATNB(null)(null)ONONCMDATND(null)(null)ONONCMDATNF(null)(null)ONONCMDATNA(null)(null)"
  203. 1950 [131] "ATNAN EASIER WAY TO REMEMBER__THIS IS:"
  204. 1960 [131] " GWAITOOD BWAITOYS DWAITESERVE FWAITUDGE__AWAITLWAYS, (null)BUT DON'T GET IT MIXED"
  205. 1970 [131] " UP WITH__THE TREBLE CLEF!!!,(null)","(null)"
  206. 1980 [131] "(null)ATNDO YOU UNDERSTAND THE LINES AND/OR __SPACES NOW ? "
  207. 1990 [131] "EIEIO"
  208. 2000 [131] "EIEIO"
  209. 2010 [153] "                                       CMDCMDCMDCMDCMDCMDCMD"
  210. 2020 [129] P[178]1 [164] 12
  211. 2030 [153] "                                       CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
  212. 2040 [130] P
  213. 2050 [203] [164] 1450
  214. 2060 [135]A$:[139]A$[179][177]"SCDXX"[167]2060
  215. 2070 SC[178]0:[129] QW[178]1 [164] 10
  216. 2080 [153] "LOAD"
  217. 2090 [141] 3070
  218. 2100 [141] 3300
  219. 2110 [141] 3420
  220. 2120 [141] 3530
  221. 2130 A[178][181]([187](1)[172]51)
  222. 2140 C[178]1
  223. 2150 [153] "";
  224. 2160 [203] [164] 2260
  225. 2170 [153] "?":T$[178]"F":E$[178]"A":[142]
  226. 2180 [153] "?":T$[178]"D":E$[178]"F":[142]
  227. 2190 [153] "?":T$[178]"B":E$[178]"D":[142]
  228. 2200 [153] "?":T$[178]"G":E$[178]"B":[142]
  229. 2210 [153] "?":T$[178]"E":E$[178]"G":[142]
  230. 2220 [153] "?":T$[178]"E":E$[178]"G":[142]
  231. 2230 [153] "?":T$[178]"C":E$[178]"E":[142]
  232. 2240 [153] "?":T$[178]"A":E$[178]"C":[142]
  233. 2250 [153] "?":T$[178]"F":E$[178]"A":[142]
  234. 2260 N[178][181]([187](1)[172]9)[170]1:[139]N[178]N1[176]N[178]N2[167]2260
  235. 2270 N2[178]N1:N1[178]N:[145] N [141] 2170,2180,2190,2200,2210,2220,2230,2240,2250
  236. 2280 A$[178]"(null)ATNQUESTION #"[170][196](QW)[170]"__WHAT DO YOU THINK IS THE ANSWER"
  237. 2290 A$[178]A$[170]" ?    CMDCMDCMD"
  238. 2300 [141] 3550
  239. 2310 [141] 2910
  240. 2320 [139] B$[178]"" [167] [153]"ON WAIT";:[203] [164] 2310
  241. 2330 B$[178][200](B$,1)
  242. 2340 [153] " "
  243. 2350 [139] C[178]1 [175] B$[178]T$ [167] 2570
  244. 2360 [139] C[178]2 [175] B$[178]E$ [167] 2570
  245. 2370 [129] X[178]1 [164] 5
  246. 2380 [141] 3490
  247. 2390 [129]Y[178]1[164]55:[130]                
  248. 2400 [141] 3420
  249. 2410 [129]Y[178]1[164]55:[130]               
  250. 2420 [141] 3510
  251. 2430 [129]Y[178]1[164]55:[130]              
  252. 2440 [130] X
  253. 2450 [141] 3420
  254. 2460 A$[178]"(null)"
  255. 2470 [141] 3550
  256. 2480 A$[178]"(null)ATNWRONG!!!!__THE ANSWER IS "
  257. 2490 [141] 3550
  258. 2500 [139] C[178]1 [167] [153] T$"."
  259. 2510 [139] C[178]2 [167] [153] E$"."
  260. 2520 A$[178]"(null)"
  261. 2530 [141] 3550
  262. 2540 A$[178]"(null)"
  263. 2550 [141] 3550
  264. 2560 [203] [164] 2780
  265. 2570 [129] Y[178]1 [164] 7
  266. 2580 [141] 3450
  267. 2590 [129] X[178]1 [164] 60:[130]
  268. 2600 [141] 3420
  269. 2610 [129] X[178]1 [164] 60:[130]
  270. 2620 [141] 3470
  271. 2630 [129] X[178]1 [164] 60:[130]
  272. 2640 [130] Y
  273. 2650 [141] 3420
  274. 2660 SC[178]SC[170]1
  275. 2670 X[178][181]([187](1)[172]4)[170]1
  276. 2680 [139] X[178]1 [167] A$[178]"RIGHT!!!"
  277. 2690 [139] X[178]2 [167] A$[178]"WAY TO GO!!"
  278. 2700 [139] X[178]3 [167] A$[178]"CORRECT!"
  279. 2710 [139] X[178]4 [167] A$[178]"NICE JOB!!"
  280. 2720 A$[178]"(null)ATN"[170]A$
  281. 2730 [141] 3550
  282. 2740 A$[178]"(null)"
  283. 2750 [141] 3550
  284. 2760 A$[178]"(null)"
  285. 2770 [141] 3550
  286. 2780 [130] QW
  287. 2790 A$[178]"(null)ATN"
  288. 2800 [139] SC[178]0 [167] A$[178]A$[170]"REALLY BAD, "
  289. 2810 [139] SC[178]1 [176] SC[178]2 [167] A$[178]A$[170]"PRETTY BAD, "
  290. 2820 [139] SC[178]3 [176] SC[178]4 [167] A$[178]A$[170]"NOT TOO GOOD, "
  291. 2830 [139] SC[178]5 [176] SC[178]6 [167] A$[178]A$[170]"NOT TOO BAD, "
  292. 2840 [139] SC[178]7 [176] SC[178]8 [167] A$[178]A$[170]"GOOD, "
  293. 2850 [139] SC[178]9 [167] A$[178]A$[170]"VERY GOOD, "
  294. 2860 [139] SC[178]10 [167] A$[178]A$[170]"EXCELLENT, "
  295. 2870 A$[178]A$[170]"__(null).  YOU GOT"
  296. 2880 A$[178]A$[170][196]([181](SC[172]10))[170]"%"
  297. 2890 [141] 3550
  298. 2900 [153]:[153]:[153]:[153]:[153]:[128]
  299. 2910 B$[178]""
  300. 2920 [151] 204,0
  301. 2930 [161] A$
  302. 2940 [139] A$[178]"" [167] 2930
  303. 2950 [139] [198](A$)[177]90 [176] [198](A$)[179]65 [167] 2930
  304. 2960 [153]A$;
  305. 2970 B$[178]A$
  306. 2980 [161] A$
  307. 2990 [139] A$[178]"" [167] 2980
  308. 3000 [139] [198](A$)[178]13 [167] [151] 204,1:[142]
  309. 3010 [139] [198](A$)[178]20 [167] 3030
  310. 3020 [203] [164] 2980
  311. 3030 [153] "CMD  CMDCMD";
  312. 3040 [203] [164] 2910
  313. 3050 B$[178]""
  314. 3060 [142]
  315. 3070 [153] "DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  316. 3080 [153] "(null)                                (null)"
  317. 3090 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  318. 3100 [153] "(null)                                (null)"
  319. 3110 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  320. 3120 [153] "(null)                                (null)"
  321. 3130 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  322. 3140 [153] "(null)                                (null)"
  323. 3150 [153] "/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  324. 3160 [153] "                                 "
  325. 3170 [142]
  326. 3180 [153] "      "
  327. 3190 [153] "ORTAN=TANTAN="
  328. 3200 [153] "(null)  WAIT  (null)(null)"
  329. 3210 [153] "-TANTANTANTAN(null)"
  330. 3220 [153] "(null)    (null)(null)"
  331. 3230 [153] "-TANTANTANTAN(null)"
  332. 3240 [153] "(null)    FN"
  333. 3250 [153] "-TANTANTAN(null)TAN"
  334. 3260 [153] "(null)   FN "
  335. 3270 [153] "/TANTANTANTANTAN"
  336. 3280 [153] "      "
  337. 3290 [142]
  338. 3300 [153] "  (null)RIGHT$   "
  339. 3310 [153] "ORTAN(null)(null)TANTAN"
  340. 3320 [153] "(null)(null)(null)(null)  "
  341. 3330 [153] "-(null)(null)TANTANTAN"
  342. 3340 [153] "(null)(null)(null)   "
  343. 3350 [153] "-(null)(null)TANTANTAN"
  344. 3360 [153] "(null)(null)ABSWAIT^  "
  345. 3370 [153] "-(null)(null)(null)TANTAN"
  346. 3380 [153] "(null)MID$(null)(null)  "
  347. 3390 [153] "/TAN(null)TANTANTAN"
  348. 3400 [153] " MID$(null)   "
  349. 3410 [142]
  350. 3420 [153] "CMDCMDCMDCMDCMD GETGETCMDCMDCMDCOSRNDRNDWAITRNDCMDCMDCMDCMDLOGLOG*WAIT CMDCMDCMDCMDSIN *WAITRNDCMDCMDCMDCMDCMDLOGRND WAITGETSINWAITCMDCMDCMDCMD";
  351. 3430 [153] "LOGGET*WAITCMDCMDCMD*GETLOGWAITCMDCMDCMDCMDSYSTAB(TAB(TAB(TAB(TAB("
  352. 3440 [142]
  353. 3450 [153] "CMDCMDCMDCMDCMD RNDRNDCMDCMDCMDGETSINCOSWAIT CMDCMDCMDCMDNEW *WAITCOS SYS"
  354. 3460 [142]
  355. 3470 [153] "CMDCMDCMDCMDCMD RNDRNDCMDCMDCMDCOS  WAITRND CMDCMDCMDCMDCMDLOGSINSINWAIT SYS"
  356. 3480 [142]
  357. 3490 [153] "CMDCMDCMDCMDCMD GETGETWAITCMDCMDCMDGET**WAIT CMDCMDCMDCMDLOG SINWAIT SYS"
  358. 3500 [142]
  359. 3510 [153] "CMDCMDCMDCMDCMDGETGETWAIT CMDCMDCMDLOG* WAIT CMDCMDCMDCMDLOGCOS*WAIT SYS"
  360. 3520 [142]
  361. 3530 T[178]0
  362. 3540 [135] A$
  363. 3550 [139] A$[178]"EIEIO" [167] [142]
  364. 3560 [129] X[178]1 [164] [195](A$)
  365. 3570 B$[178][202](A$,X,1)
  366. 3580 [139] B$[178]"ATN" [167] T[178]1:B$[178]""
  367. 3590 [139] B$[178]"_" [167] [153]:B$[178]""
  368. 3600 [139] B$[178]"(null)" [167] T[178]0:B$[178]""
  369. 3610 [139] B$[178]"(null)" [167] 3780
  370. 3620 [139] B$[178]"(null)" [167] 4270
  371. 3630 [139] B$[178]"(null)" [167] 3910
  372. 3640 [139] B$[179][177]"(null)" [167] 3680
  373. 3650 [129] Y[178]1 [164] 250
  374. 3660 [130] Y
  375. 3670 B$[178]""
  376. 3680 [153] B$;
  377. 3690 [139] T[178]0 [167] 3760
  378. 3700 [151] PK,160
  379. 3710 [151] 54296,15
  380. 3720 [151] 54276,32
  381. 3730 [151]54276,33:[151]54273,[181]([187](1)[172]50)[170]50
  382. 3740 [151] 54296,0
  383. 3750 [151] PK,252
  384. 3760 [130] X
  385. 3770 [203] [164] 3540
  386. 3780 [129] Z[178]1 [164] [195](NA$)
  387. 3790 [153] [202](NA$,Z,1);
  388. 3800 [139] T[178]0 [167] 3760
  389. 3810 [151] PK,160
  390. 3820 [151] 54296,15
  391. 3830 [151] 54276,32
  392. 3840 [151]54276,33:[151]54273,[181]([187](1)[172]50)[170]50
  393. 3850 [151] 54296,0
  394. 3860 [151] PK,252
  395. 3870 [129] Q[178]1[164]20
  396. 3880 [130] Q
  397. 3890 [130] Z
  398. 3900 [203] [164] 3760
  399. 3910 [153]
  400. 3920 [141]9000
  401. 3930 [161] A$
  402. 3940 [139] A$[178]"" [167] 3980
  403. 3950 [139] [198](A$)[179][177]13 [167] 3980
  404. 3960 [141] 3420
  405. 3970 [203] [164] 3760
  406. 3980 A[178][181]([187](1)[172]25)
  407. 3990 [139] A[179][177]21 [167] 3930
  408. 4000 A[178][181]([187](1)[172]5)[170]1
  409. 4010 [145] A [141] 3510,3450,3470,3490,3420
  410. 4020 [203] [164] 3930
  411. 4030 [131]SCDXX,"ATNOK (null),__TIME FOR A QUIZ!!(null)","(null)",
  412. 4040 [131] "(null)ATNI WILL ASK YOU 10 QUESTIONS,(null)__(null)ATNAND YOU BETTER GET"
  413. 4050 [131] " THEM CORRECT!!(null)__READY,(null) HERE WE GO!!(null)","(null)","EIEIO"
  414. 4060 [131] "EIEIO","EIEIO","EIEIO"
  415. 4070 [131] "EIEIO","EIEIO","EIEIO"
  416. 4080 [131] "EIEIO","EIEIO","EIEIO"
  417. 4090 [131] "EIEIO","EIEIO","EIEIO"
  418. 4100 [131] "EIEIO","EIEIO","EIEIO"
  419. 4110 [131] "EIEIO","EIEIO","EIEIO"
  420. 4120 [131] "EIEIO","EIEIO","EIEIO"
  421. 4130 [131] "EIEIO","EIEIO","EIEIO"
  422. 4140 [131] "EIEIO","EIEIO","EIEIO"
  423. 4150 [131] "EIEIO","EIEIO","EIEIO"
  424. 4160 [131] "EIEIO","EIEIO","EIEIO"
  425. 4170 [131] "EIEIO","EIEIO","EIEIO"
  426. 4180 [131] "EIEIO","EIEIO","EIEIO"
  427. 4190 [131] "EIEIO","EIEIO","EIEIO"
  428. 4200 [131] "EIEIO","EIEIO","EIEIO"
  429. 4210 [131] "EIEIO","EIEIO","EIEIO"
  430. 4220 [131] "EIEIO","EIEIO","EIEIO"
  431. 4230 [131] "EIEIO","EIEIO","EIEIO"
  432. 4240 [131] "EIEIO","EIEIO","EIEIO"
  433. 4250 [131] "EIEIO","EIEIO","EIEIO"
  434. 4260 [128]
  435. 4270 [153] "                                       CMDCMDCMDCMDCMDCMDCMD"
  436. 4280 [129] P[178]1 [164] 12
  437. 4290 [153] "                                       CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
  438. 4300 [130] P
  439. 4310 [203] [164] 3760
  440. 8999 [128]
  441. 9000 [153]"";
  442. 9010 [153]"PRESSFORTHENRETURNWAITFNONCMDCMDCMDCMDCMDCMDCMDTOTOTOTOTOTOCMDCMDCMDCMDCMDCMDTAB(TAB(TAB(TAB(TAB(TAB(ONSYSTO CONTINUE.";
  443. 9020 [142]
  444.